home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 37 / CD-ROM 37 / CD-ROM 37.iso / corel / Draw / Scripts / Presets / sunset03.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  926 b   |  26 lines
  1. REM Conical fill with extrude.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5. rem    .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  10
  10.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  20
  11.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  30
  12.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  40
  13.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  50
  14.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  60
  15.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  70
  16.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  80
  17.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  90
  18.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  100
  19.     .ApplyFountainFill 2, 0, -50, 900, 256, 0, 3, 50
  20.     .RecorderSelectObjectByIndex TRUE, 1
  21.     .ApplyExtrude 4, 0, 0, 20, -32765, -33527, TRUE, 0, 0, 0, 0, 0, 0, 0, 0
  22.     .ResumePainting 
  23.     .EndOfRecording 
  24. END WITHOBJECT
  25.  
  26.